100 DIMCAT$(11),AMOUNT$(11):FORI=1TO11:CA$(I)="[206]OT DEFINED":AM$(I)="0.00":NEXT
110 CA$(11)="[197]NTER [215]AGES ->":MODE=0
120 WL$="[215]HAT'S LEFT ->"
130 POKE53281,15:POKE53280,15:PRINT"[147][144]";
140 SP$="                                      "
150 REM MENU
160 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
170 PRINT"[221]        [195] [200][160][197][160][193][160][208][160][160][160][195][160][193][160][204][160][195]           [146][221]";
180 FORI=1TO11:PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]";
190 PRINT"[221]                  [221]                   [221]";:NEXT
200 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";:POKE2023,125
210 POKE56295,PEEK(646)
220 REM CLEAR LINE LINKS
230 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
240 REM MAIN PROGRAM
250 ITEM=11:POKE631,13:POKE198,1
260 FORI=1TO11:POKE211,1:POKE214,1+2*I:SYS58732:PRINTCA$(I);
270 PRINTTAB(30-LEN(AM$(I)))"        "AM$(I):NEXT
280 GETA$:GOSUB370:IFA$=""THEN280
290 IFA$=""ANDPEEK(653)=4THENGOSUB700
300 IFA$=""ANDPEEK(653)=0THENT=-1:GOSUB380:IT=IT+1:IFIT>11THENIT=1
310 IFA$="[145]"THENT=-1:GOSUB380:IT=IT-1:IFIT<1THENIT=11
320 IFA$=""ORA$="[157]"THENT=-1:GOSUB380:MODE=NOT MODE
330 IFIT=11ANDMODE=-1THEN350
340 IFA$=CHR$(13)THEN560
350 T=0:GOSUB380
360 GOTO280
370 IFTI<15THENRETURN
380 T=NOTT:POKE199,-T:POKE211,1:POKE214,1+2*IT:SYS58732:IF-MODETHEN400
390 PRINTTAB(38-LEN(AM$(IT)))AM$(IT):TI$="000000":RETURN
400 PRINTCA$(IT):TI$="000000":RETURN
410 REM INPUT ROUTINE
420 W$="":PRINT">[146][157]";:LIMIT=8:IFMODE=-1THENLI=18
430 GETA$:IFA$="[145]"ORA$=""ORA$="[157]"ORA$=""ORA$=""ORA$="[147]"ORA$=""THEN430
440 LW=LEN(W$):AS=ASC(A$):IFAS=13ORAS=141ORAS=20THEN490
445 IFNOTMODETHENIFAS<43ORAS>57THEN420
450 IFPEEK(653)=2ORPEEK(653)=4ORAS=148THEN430
460 IFLW=LIMIT AND(AS<>20ANDAS<>13ANDAS<>141)THEN430
470 IFAS=34OR(AS>=133ANDAS<=140)OR(AS>=1ANDAS<=31)THEN430
480 W$=W$+A$:PRINTA$">[146][157]";:LW=LEN(W$):GOTO430
490 IFAS=20ANDW$<>""THENW$=LEFT$(W$,LW-1):PRINT"[157]<[146] [157][157]";:GOTO430
500 IFAS=20ANDW$=""THEN430
510 IFAS=13THENPRINT" ";:LW=LEN(W$):RETURN
520 REM CALCULATE TOTAL
530 TT=VAL(TT$):FORI=1TO10:TT=TT-VAL(AM$(I)):NEXT
540 A$=STR$(TT):GOSUB620:AM$(11)=A$:RETURN
550 REM ENTER DATA
560 POKE211,1-(MO=0)*27:POKE214,2*IT+1:SYS58732
570 PRINT"           [157][157][157][157][157][157][157][157][157][157][157]";:GOSUB420
580 IFMODETHENIFW$<>""THENCA$(IT)=W$:GOTO260
590 IFW$<>""THENA$=W$:GOSUB620:AM$(IT)=A$:IFIT=11THENTT$=A$:CA$(11)=WL$:IT=1
600 GOSUB530:GOSUB790
610 GOTO260
620 REM ROUND A$ TO NEAREST PENNY
630 A$=STR$(INT(VAL(A$)*100+.5)/100)
640 IFA$=" 0"THENA$=" 0.00"
650 IFVAL(A$)>.99ANDVAL(A$)<10.1THENIFVAL(A$)=INT(VAL(A$))THEN680
660 IFMID$(A$,LEN(A$)-2,1)="."THENRETURN
670 IFMID$(A$,LEN(A$)-1,1)="."THENA$=A$+"0":RETURN
680 A$=A$+".00":RETURN
690 REM GET TWO CTRL-Q'S
700 POKE198,0:POKE53281,1:WAIT198,1:POKE53281,15
710 GETA$:IFA$<>""ORPEEK(653)<>4THENRETURN
720 REM RETURN TO LOADSTAR
730 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
740 IF ER<>63 THEN PRINT"[147]":END
750 A$="HELLO CONNECT":Q$=CHR$(34):PRINT"[147]":POKE646,PEEK(53281)
760 PRINT"LOAD"Q$A$Q$",8"
770 PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END
780 REM UPDATE TOP OF MENU
790 A$=STR$(VAL(TT$)-VAL(AM$(11))):GOSUB630:REM CALCULATE EXPENDITURES
800 PRINT"[197]XPENDITURES:$"A$"    "TAB(25)"[195][212][210][204]-[209] TO QUIT":RETURN